home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / mtfontse.d < prev    next >
Text File  |  1997-10-26  |  5KB  |  94 lines
  1. (*----------------------------------------------------------------------*
  2.  *                                                                      *
  3.  *  MAGICTOOLS   Modula's  All purpose  GEM  Interface  Cadre  Toolbox  *
  4.  *               ÿ         ÿ            ÿ    ÿ          ÿ               *
  5.  *----------------------------------------------------------------------*
  6.  * Version 3.30  02.02.1992     (C)90/91/92 by Peter Hellinger Software *
  7.  *----------------------------------------------------------------------*
  8.  *            Dieses Modul ist urheberrechtlich geschtzt.              *
  9.  *                                                                      *
  10.  * Die Ver”ffentlichung des Quelltextes oder Teilen daraus, sowie die   *
  11.  * Verbreitung des bersetzten, nicht gelinkten Codes in schriftlicher, *
  12.  * oder maschinenlesbarer Form, insbesondere in Zeitschriften, Mail-    *
  13.  * boxen oder anderen Medien bedarf der ausdrcklichen schriftlichen    *
  14.  * Einverst„ndnisserkl„rung des Autors.                                 *
  15.  *                                                                      *
  16.  * Die Verbreitung des Moduls als Teil eines gelinkten Programms ist    *
  17.  * fr Lizenznehmer ausdrcklich erlaubt!  Der Autor beh„lt sich das    *
  18.  * Recht vor, diese Erlaubnis jederzeit und ohne Angaben von Grnden zu *
  19.  * widerrufen.                                                          *
  20.  *----------------------------------------------------------------------*)
  21.  
  22. (*----------------------------------------------------------------------*
  23.  * mtFontselector       GDOS-Fontselektion einfach gemacht              *
  24.  *----------------------------------------------------------------------*)
  25.  
  26. DEFINITION MODULE mtFontselector;
  27.  
  28. FROM MagicSys   IMPORT  Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6,
  29.                         Bit7, Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14,
  30.                         Bit15, LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  31.                         sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  32.  
  33.  
  34.  
  35.  
  36.  
  37. PROCEDURE FontSelector (handle: INTEGER; REF  msg: ARRAY OF CHAR;
  38.                         seleffekt, mono: BOOLEAN;
  39.                         VAR font, size, width, skew: sINTEGER;
  40.                         VAR effekt: sBITSET): BOOLEAN;
  41. (* Bringt einen Fontselector auf den Bildschirm. In diesem Dialog kann 
  42.  * der aktuelle Font fr die Bildschirm-Workstation handle eingestellt 
  43.  * werden. Wird der Dialog mit OK beendet, wird der gew„hlte Font fr
  44.  * die Workstation eingestellt, ansonsten bleibt der vorher eingestellte
  45.  * Font gltig.  Returniert TRUE, wenn OK geklickt wurde.
  46.  *
  47.  * handle =     Handle der Workstation, fr die Fonts eingestellt werden
  48.  *              sollen. Fr diese Workstation muž unbedingt die Prozedur
  49.  *              mtFonts.LoadFonts ausgefhrt sein.
  50.  *
  51.  * msg =        Hier kann ein String von bis zu 40 Zeichen bergeben 
  52.  *              werden, der als Titel in den Dialog bernommen wird.
  53.  *              Im Falle eine Leerstrings wird einfach 'Fontauswahl'
  54.  *              in den Dialog geschrieben.
  55.  *
  56.  * seleffekt =  Wenn hier TRUE bergeben wird, ist es m”glich im Dialog
  57.  *              auch die Texteffekte einzustellen
  58.  *
  59.  * mono =       Es werden nur Monospaced-Fonts angeboten.
  60.  *
  61.  * font =       Enth„lt nach Rckkehr den ID des gew„hlten Fonts
  62.  *
  63.  * size =       Enth„lt nach Rckkehr die Gr”že des gew„hlten Fonts
  64.  *              in Points
  65.  *
  66.  * skew =       Enth„lt nach Rckkehr den Skew-Faktor in 1/10 Grad.
  67.  *              Nur bei FSM-Fonts, wenn mtFonts als FSM-Version
  68.  *              benutzt wurde.
  69.  *
  70.  * effekt =     Enth„lt nach Rckkehr die Texteffekte (auch bei
  71.  *              seleffekt = FALSE!)
  72.  *
  73.  * Ein Wort noch zur Bedienung:
  74.  * Der Dialog ist vollst„ndig Tastatur-bedienbar. Die einzelnen
  75.  * Komponenten werden wie folgt bedient:
  76.  * 
  77.  * Cursor rechts =      N„chster Font
  78.  * Cursor links =       Vorhergehender Font
  79.  * Cursor hoch =        Fontgr”že erh”hen
  80.  * Cursor runter =      Fontgr”že verkleinern
  81.  * Plus-Taste =         Breitenfaktor erh”hen
  82.  * Minus-Taste =        Breitenfaktor verkleinern
  83.  * '/'-Taste =          Neigung nach links
  84.  * '*'-Taste =          Neigung nach rechts
  85.  *
  86.  * Zus„tzlich kann durch Klick auf die Fontgr”že bzw. FontSkew ein
  87.  * Hilfsdialog gerufen werden, in dem die Gr”že per Hand eingestellt
  88.  * werden kann. (Bei FSM-Fonts ist es etwas mhsam durch 'Cursor hoch'
  89.  * einen 48Pt Font einzustellen...)
  90.  *)
  91.  
  92. END mtFontselector.
  93.  
  94.